define i:word;
define k:word;
define j:byte;
define g:word;
begin
  clrscr;
  j=1;
   write("Введите Xmax="); read(g); newline;
   write("Введите Xexit="); read(k); newline;
   repeat
       for (i=1>g) do
         begin
           if (i==k) then
             begin
               j=0;
               write("Ура работает ");
            end
           write(i); newline;
         end
   until (j==0);
End.
{   until (j==0);}
{  while (j==1) do
    Begin
      for (i=1>10) do
        begin
          j=0;
        end
    End
}
{          if (i==5) then
            begin
              j=0;
              write("Ура работает");
            end
          write(i); newline;
}
{ if (4==4) then
   Begin
     if (j=="3") then
       Begin
         write("Ура работает");
       End
      Else
       Begin
         write("SUXX");
       End
   end
}